home *** CD-ROM | disk | FTP | other *** search
/ The PC-SIG Library 10 / The PC-Sig Library - Shareware for the IBM PC and Compatibles (PC-SIG)(Tenth Edition Disks 1-2804)(1991).iso / PC_SIGCD / 10 / 9 / DISK1095.ZIP / LABELS.PRG < prev    next >
Text File  |  1980-01-01  |  2KB  |  74 lines
  1. *
  2. * LABELS
  3. * MAILING LABELS FROM CUSTOMER.DBF
  4. SET HEADING OFF
  5. SET SAFETY OFF
  6. SET STATUS OFF
  7. CLEAR
  8. CLEAR ALL
  9. SET TALK OFF
  10. SET BELL OFF
  11. @ 1,22 SAY "SMITH'S BIKEWORKS INFORMATION SYSTEM"
  12. @ 3,16 SAY ">> Customer Information System Mailing Labels <<"
  13. @ 5,29 SAY "Today's Date: "
  14. ?? DATE()
  15. STORE "                    " TO NAMEST
  16. STORE "zzzzzzzzzzzzzzzzzzzz" TO NAMEEND
  17. STORE 00000 TO ZIPST
  18. STORE 99999 TO ZIPEND
  19. STORE "CUSTOMER" TO FILENAME
  20. STORE "ZIP     " TO INDEX
  21. @ 7,1 SAY "Beginning LAST NAME to Include in Labels " GET NAMEST
  22. @ 9,1 SAY "Ending LAST NAME to Include in Labels    " GET NAMEEND
  23. @ 12,1 SAY "Range of ZIP CODES to Include in Labels  " GET ZIPST
  24. @ 12,55 SAY "to " GET ZIPEND
  25. @ 15,1 SAY "Run Labels From The Following FILE " GET FILENAME
  26. @ 17,1 SAY "Ordered by the Following INDEX     " GET INDEX
  27. STORE " " TO DUMMY
  28. @ 21,1 SAY ;
  29. "REPLACE VALUES AT CURSOR, OR JUST PRESS ENTER IF CURRENT LABEL DESCRIPTION"
  30. @ 22,1 SAY ;
  31. "IS O.K.  'M' HERE RETURNS TO MENU, ANY OTHER KEY STARTS THE LABELS =>";
  32. GET DUMMY
  33. READ
  34. STORE UPPER(DUMMY) TO DUMMY
  35. IF DUMMY="M"
  36.    RETURN
  37. ENDIF
  38. * OPEN FILE USING INDEX SPECIFIED ABOVE, OR NO INDEX IF IT IS BLANK
  39. IF INDEX="  "
  40.    USE &FILENAME
  41. ELSE
  42.    USE &FILENAME INDEX &INDEX
  43. ENDIF
  44. * RUN LABELS SELECTING RECORDS AS SPECIFIED BY DEFAULTS OR SCREEN INPUTS
  45. SET PRINT ON
  46. SET CONSOLE OFF
  47. SET MARGIN TO 5
  48. GO TOP
  49. * ACCESS RECORDS UNTIL SKIP DOESN'T PRODUCE A NEW RECORD
  50. STORE 0 TO RECNOW
  51. DO WHILE .NOT. EOF()
  52.    IF LAST_NAME>=NAMEST.AND.LAST_NAME<=NAMEEND;
  53.       .AND.ZIP>=ZIPST.AND.ZIP<=ZIPEND.AND..NOT.DELETE()
  54.       ? TRIM(FIRST_NAME)+" "
  55.       IF INITIAL<>" "
  56.          ?? INITIAL+". "
  57.       ENDIF
  58.       ?? TRIM(LAST_NAME)
  59.       ? TITLE
  60.       ? COMPANY
  61.       ? STREET
  62.       ? TRIM(CITY)+", "+STATE+"  "+STR(ZIP,5,0)
  63.       ?
  64.    ENDIF
  65. * SEE IF SKIP GETS TO A NEW RECORED
  66.    STORE RECNO() TO RECNOW
  67.    SKIP 1
  68. ENDDO
  69. EJECT
  70. SET PRINT OFF
  71. SET CONSOLE ON
  72. CLEAR
  73. RETURN
  74.